home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / amac44b.zip / MENU12.QM < prev    next >
Text File  |  1991-07-15  |  2KB  |  54 lines
  1. *                              MENU12.QM
  2. *                             Menu Macros
  3. *                      Written by Tom Hogshead
  4. *                            July 15, 1991
  5. *
  6. * -------------------------------------------------------------
  7. * @(-) Menu Macro, Start up macro for start.bat and menu.bat
  8. * -------------------------------------------------------------
  9. *
  10. * Type MENU or START for a demonstration. Cursor down to macro name
  11. * to load it's file list, then press <enter>. All files pertaining
  12. * to the selected macros will be loaded and the macros read ready
  13. * for running.
  14. *
  15. * More to come!
  16. *
  17. @-  Macrobegin
  18. *---- Select File List To Load Files ---*
  19.     InsertLine                          * Insert line for instructions |1.2
  20.     Markcolumn                          * Instructions
  21.     "" CursorRight 7 "─┘"             *      "
  22.     Markcolumn                          *      "
  23.     Begline CursorDown                  * Put cursor on first file list
  24.     Pause                               * Pause to select file list
  25.     DeleteBlock                         * Clear instructions from screen
  26.     Markline Copy                       * Copy file name to scrap
  27.     EditFile Paste Return               * Load selected file list
  28.     Prevfile Quit                       * Quit menul.ql
  29. *----- Load Files From File List -------*
  30.     Endfile Begline                     * Get to last file first
  31.  REPEAT:                                *
  32.     Unmarkblock Markline                * Mark file name
  33.     Copy                                * Copy file name to scrap
  34.     Editfile Currentfilename " "        * Load current file plus
  35.     Paste Return                        * last marked on list into ring
  36.     Cursorup                            * If another file, move up, loop
  37.  Jtrue REPEAT:                          * until no more files to load
  38. *----- Read Macro Of First File --------*ELSE
  39.     Nextfile Macroread                  * Read first file macro
  40.     Currentfilename                     *
  41.     Backspace Backspace "Mac" Return    *
  42. *
  43. * 57 bytes Wed  03-20-1991  16:48:53
  44. * 58 bytes Mon  04-29-1991  12:41:58 added InsertLine
  45.  
  46. * (Version) history:
  47. *
  48. *   1.0 -   Initial
  49. *   1.1 -   Added InsertLine
  50. *   1.2 -   Minor documentation changes.
  51. *
  52. *
  53. *
  54.